﻿

Namespace LightSwitchApplication

    Public Class PatientDetails

        Private Sub patient_Loaded(succeeded As Boolean)
            ' Write your code here.
            Me.SetDisplayNameFromEntity(Me.Patient)

        End Sub

        Private Sub patient_Changed()
            ' Write your code here.
            Me.SetDisplayNameFromEntity(Me.Patient)
        End Sub

        Private Sub PatientDetails_Saved()
            ' Write your code here.
            Me.SetDisplayNameFromEntity(Me.Patient)
        End Sub

    End Class

End Namespace